program mult
  var
    a: int
begin
  Write(in "input:")
  Read(out a)
  Write(in "output: " in a*a)
  Read()
end